home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopclifi.$exec < prev    next >
Encoding:
Text File  |  1993-01-25  |  5.2 KB  |  67 lines
  1. /*                                                                      00010000
  2.  *        Name: GOPCLIFI EXEC (function)                                00020000
  3.  *              returns a CMS fileid from a gopher path                 00030000
  4.  *      Author: Rick Troth, Rice University, Information Systems        00040000
  5.  *        Date: 1992-Dec-10, 1993-Jan-15                                00050000
  6.  *                                                                      00060000
  7.  *              This file is part of CMS Gopher.                        00070000
  8.  */                                                                     00080000
  9.                                                                         00090000
  10. Parse Source . call . . . arg0 .                                        00100000
  11. If call ^= "FUNCTION" Then Do                                           00110000
  12.     Say "Usage:" arg0 || "()"                                           00120000
  13.     Exit                                                                00130000
  14.     End                                                                 00140000
  15.                                                                         00150000
  16. Parse Arg path                                                          00160000
  17. Parse Value Reverse(path) With name '/' path                            00170000
  18. Parse Value Reverse(name) With name ',' . ';' vers                      00180000
  19.                                                                         00190000
  20. /*  input/output tables are built piecemeal to circumvent     *         00200000
  21.  *  the 500 byte clause limit in older interpreters           */        00210000
  22. i   =    '000102030405060708090A0B0C0D0E0F'x || ,                       00220000
  23.          '101112131415161718191A1B1C1D1E1F'x || ,                       00230000
  24.          '202122232425262728292A2B2C2D2E2F'x || ,                       00240000
  25.          '303132333435363738393A3B3C3D3E3F'x                            00250000
  26.                                                                         00260000
  27. i = i || '404142434445464748494A4B4C4D4E4F'x || ,                       00270000
  28.          '505152535455565758595A5B5C5D5E5F'x || ,                       00280000
  29.          '606162636465666768696A6B6C6D6E6F'x || ,                       00290000
  30.          '707172737475767778797A7B7C7D7E7F'x                            00300000
  31.                                                                         00310000
  32. i = i || '808182838485868788898A8B8C8D8E8F'x || ,                       00320000
  33.          '909192939495969798999A9B9C9D9E9F'x || ,                       00330000
  34.          'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'x || ,                       00340000
  35.          'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'x                            00350000
  36.                                                                         00360000
  37. i = i || 'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'x || ,                       00370000
  38.          'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'x || ,                       00380000
  39.          'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'x || ,                       00390000
  40.          'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'x                            00400000
  41.                                                                         00410000
  42. o   =    '40404040404040404040404040404040'x || ,                       00420000
  43.          '40404040404040404040404040404040'x || ,                       00430000
  44.          '40404040404040404040404040404040'x || ,                       00440000
  45.          '40404040404040404040404040404040'x                            00450000
  46.                                                                         00460000
  47. o = o || '407C7C7C7C7C7C7C7C7C7C407C7C4E7C'x || ,                       00470000
  48.          '7C7C7C7C7C7C7C7C7C7C7C5B7C7C7C7C'x || ,                       00480000
  49.          '607C7C7C7C7C7C7C7C7C7C7C6C6D7C7C'x || ,                       00490000
  50.          '7C7C7C7C7C7C7C7C7C7C7A7B7C7C7C7C'x                            00500000
  51.                                                                         00510000
  52. o = o || '7CC1C2C3C4C5C6C7C8C97C7C7C7C7C7C'x || ,                       00520000
  53.          '7CD1D2D3D4D5D6D7D8D97C7C7C7C7C7C'x || ,                       00530000
  54.          '7C7CE2E3E4E5E6E7E8E97C7C7C7C7C7C'x || ,                       00540000
  55.          '7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C'x                            00550000
  56.                                                                         00560000
  57. o = o || '7CC1C2C3C4C5C6C7C8C97C7C7C7C7C7C'x || ,                       00570000
  58.          '7CD1D2D3D4D5D6D7D8D97C7C7C7C7C7C'x || ,                       00580000
  59.          '7C7CE2E3E4E5E6E7E8E97C7C7C7C7C7C'x || ,                       00590000
  60.          'F0F1F2F3F4F5F6F7F8F97C7C7C7C7C7C'x                            00600000
  61.                                                                         00610000
  62. Parse Upper Value Translate(name,o,i) With fn ft .                      00620000
  63. If fn = "" Then fn = "VMGOPHER"                                         00630000
  64. If ft = "" Then ft = "DOCUMENT"                                         00640000
  65. Return fn ft                                                            00650000
  66.                                                                         00660000
  67.